#!/usr/bin/perl

# essaie de remplir automatiquement le catalogue des URL à partir des informations données dans les en-têtes de commentaire
open(XML,">test.xml");
print(XML "<?xml version='1.0' encoding='UTF-8' ?>
<!DOCTYPE catalog SYSTEM \"dtdcatalog.dtd\">
<?xml-stylesheet type=\"text/xsl\" href=\"catalog.xsl\" ?>
<catalog>\n");

@files=glob("dtd/*");
foreach $file (@files)
{
	$nom="";
	print $file."\n";
 	if ($file =~ /dtd\/(.*)/ )
	{	
		$nom=$1;
		print XML "\t<dtditem nom=\"$1\">\n";
	}	
	open(FICHIER,"<$file");
	$url="";
	$description="";
	$nblines=0;
	while ($ligne=<FICHIER>)
	{
# 		print $ligne."\n";
		if ($ligne =~/(http.*[.]dtd)/ && $url eq "" )
			{ $url=$1;  }
		if ($ligne =~/([^<>!-]*DTD[^<>!-]*)/ and $nblines < 3)
			{ $description .=$1;  $nblines++; }
		
	}
	
	print (XML "\t\t<url>$url</url>\n");
	print (XML "\t\t<description>$description</description>\n");
	print (XML "\t</dtditem>\n");
	close(FICHIER);
}
print (XML "</catalog>");
close(XML);